Libris Britannia 4/science library(b).zip/science library(b)/PROGRAMM/DB_CLIPP/1159.ZIP/OSSSEE.PRG

Text File | 1988-11-07 | 3KB | 189 lines

USE
SELECT 2
USE REPWORK
SELECT 1
USE &DBNAME
SET EXACT ON
SET DELETED ON
SET SAFETY OFF
GO TOP
NP=0
N=0
DO WHILE N=0
SET INDEX TO &INDEX1,&INDEX2
CLEAR
MULTTV=0
MULTSN=0
@ 8,5 SAY 'Press "RETURN" to return to previous menu.'
@ 1,0 SAY ' '
?'What is either the '
?? TVANUMBER
??' or the '
?? SERIALNUM
??' ?'
?
?
ACCEPT '                                             ' TO TVANO
IF LEN(TVANO)=0
 RETURN
ENDIF
TVANO=UPPER(LTRIM(TRIM(TVANO)))
 IF TVAID='Y'.AND.SERID='Y'
  DO WHILE ' ' $ TVANO
    P=AT(' ',TVANO)
    TVANO=LEFT(TVANO,P-1)+RIGHT(TVANO,LEN(TVANO)-P)
  ENDDO
 ENDIF
SEEK TVANO
IF EOF()
 SET INDEX TO &INDEX2,&INDEX1
 SEEK TVANO
 IF .NOT. EOF()
  SKIP
  IF TVANO=SERIAL_NO
   MULTSN=1
   DO OSSFMTMF.PRG
   LOOP
  ENDIF
  SKIP-1
 ENDIF
ELSE
 SKIP
 IF TVANO=TVA_NO
  MULTTV=1
  DO OSSFMTMF.PRG
  LOOP
 ENDIF
 SKIP-1
ENDIF
IF NP=1
  N=0
  NP=N
  LOOP
ENDIF
IF EOF()
 CLEAR
 @ 1,20 SAY 'Data base in use:  '
 ?? OSS
 @ 5,0 SAY 'No record was found in which "'
 ?? TVANO
 ??'" exactly '
 ?'matched any item in either the '
 ?? TVANUMBER
 ??' field '
 ?'or the '
 ?? SERIALNUM
 ??' field.'
 ?
 ?
 ?
 WAIT
 LOOP
ENDIF
NNNN=RECNO()
CLEAR
@ 1,25 SAY 'Data base in use:  '
?? OSS
@ 3,0 SAY INSTNAME
@ 3,23 SAY SERIALNUM
@ 3,40 SAY TVANUMBER
@ 3,57 SAY CALIBDATE
@ 3,70 SAY 'NEXT DATE'
DO CASE
 CASE BY_DATE=100
  @ 5,56 SAY TDREMARK
 CASE BY_DATE=200
  @ 5,58 SAY DREMARK
ENDCASE
@ 6,0 SAY INST_TYPE
@ 6,23 SAY SERIAL_NO
@ 6,40 SAY TVA_NO
@ 6,58 SAY CALIB_DATE
@ 6,70 SAY CAL_DUE_DT
  PT=0
  IF CAT3ABB $ SUBCATID
   ?'/'
   ?? CATEGORY3
   ??'/   '
   PT=1
  ENDIF
  IF SUB1ABB $ SUBCATID
   IF PT=0
    ?'('
    ?? SUBCAT1
    ??')   '
    PT=1
   ELSE
    ??'('
    ?? SUBCAT1
    ??')   '
   ENDIF
  ENDIF
  IF SUB2ABB $ SUBCATID
   IF PT=0
    ?'('
    ?? SUBCAT2
    ??')   '
    PT=1
   ELSE
    ??'('
    ?? SUBCAT2
    ??')   '
   ENDIF
  ENDIF
  IF SUB3ABB $ SUBCATID
   IF PT=0
   ?'('
   ?? SUBCAT3
   ??')   '
   ELSE
   ??'('
   ?? SUBCAT3
   ??')   '
   ENDIF
  ENDIF
@ 9,0 SAY LOCATNAME
??':  '
?? LOCATION
IF CALIB_INT>0.AND.CALIB_INT<99
 ??'   '
 ?? CALINTERVL
 ??':  '
 ?? CALIB_INT
 ??'  months'
ENDIF
DO CASE
 CASE CALIB_INT=99
  @ 9,60 SAY '/'
  ?? CATEGORY2
  ??'/'
 CASE CALIB_INT=0
  @ 9,60 SAY '/'
  ?? CATEGORY3
  ??'/'
ENDCASE
@ 11,0 SAY REMARK
@ 14,0 SAY 'LAST UPDATE:'
@ 14,14 SAY LAST_UPDAT
N4="K"
DO WHILE ASC(N4)#0.AND.N4#' '.AND.N4#'C'
@ 17,0 SAY 'Press SPACEBAR to see information concerning another record.'
?
?'Press "C" to change information or delete a record.'
?
WAIT 'Press "RETURN" to return to the previous menu.' TO N4
N4=UPPER(N4)
DO CASE
 CASE ASC(N4)=0
  RETURN
 CASE N4='C'
  GO NNNN
  RECALL
  DO OSSMOD
  LOOP
ENDCASE
ENDDO
ENDDO
RETURN